home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ggetvi1r / modgen.bas < prev    next >
BASIC Source File  |  1999-05-24  |  479b  |  15 lines
  1. Attribute VB_Name = "modGen"
  2. Public Sub TileImage(Canvas As Object, Image As PictureBox)
  3. Dim nHC As Integer, nWC As Integer
  4. On Error Resume Next
  5. nHC = Canvas.Height \ Image.Height + 1
  6. nWC = Canvas.Width \ Image.Width + 1
  7. Dim m_intLoopH As Integer, m_intLoopW As Integer
  8. For m_intLoopH = 1 To nHC
  9.     For m_intLoopW = 1 To nWC
  10.         Canvas.PaintPicture Image, m_intLoopW * Image.Width - Image.Width, m_intLoopH * Image.Height - Image.Height
  11.     Next
  12. Next
  13. End Sub
  14.  
  15.